home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / pslatex / lfonts.tex < prev    next >
Text File  |  1991-05-20  |  28KB  |  778 lines
  1. % This file has been converted to use the PostScript fonts
  2. % Graeme McKinstry October 1986
  3. % Modified further by Mario Wolczko, April 1988 - Oct 1989
  4.  
  5. % File LFONTS - Version of 6 May 1986.
  6. %
  7. % This version of LFONTS.TEX is for the CMR fonts.  It was converted
  8. % from the AMR version by David Fuchs on 18 December 1985.
  9. %
  10. % This file needs to be customized for the fonts available at a particular
  11. % site.  There are three places where changes need to be made.  They
  12. % can be found by searching this file for the string  FONT-CUSTOMIZING.
  13. %
  14. % FONT CONVENTIONS
  15. %
  16. % A TYPESTYLE COMMAND is something like \it that defines a type style.
  17. % Each style command \xx is defined to be \protect\pxx, where 
  18. % \pxx is defined to choose the correct font for the current size.
  19. % This allows style commands to appear in 'unsafe' arguments where
  20. % protection is required.
  21. %
  22. % A SIZE COMMAND is something like \normalsize that defines a type size.
  23. % It is defined by the document style.  However, \normalsize is handled
  24. % somewhat differently because it is called so often--e.g., on every
  25. % page by the output routine.  The document style defines \@normalsize
  26. % instead of \normalsize.
  27. % 
  28. % A ONE-SIZE typestyle is one that exists only in the \normalsize size.
  29. %
  30. % A FONT-SIZE COMMAND is one that defines \textfont, \scriptfont and 
  31. % \scriptscriptfont for the font families corresponding to preloaded fonts,
  32. % as well as the typestyle commands for the preloaded fonts.  Each
  33. % font-size command has an associated @fontsize command, having the same
  34. % name except for an '@' at the front.   All font-size commands are defined 
  35. % in LFONTS.  The naming convention is that a fifteenpt font has a font-size
  36. % name \xvpt, and so on.
  37. %
  38. % Each size command \SIZE executes the command
  39. %             \@setsize\SIZE{BASELINESKIP}\FONTSIZE\@FONTSIZE
  40. % which does the following.
  41. %   0. Executes \@nomath\SIZE to issue warning if in math mode.
  42. %   1. \let \@currsize = \SIZE  
  43. %   2. Sets \strutbox to a strut of height .7 * BASELINESKIP and
  44. %      depth .3 * BASELINESKIP
  45. %   3. Sets \baselineskip to \baselinestretch * BASELINESKIP 
  46. %      and 
  47. %   4. Calls \FONTSIZE 
  48. %   5. Executes the \@FONTSIZE command.
  49. % It should then define all the typestyle commands not defined by the font-size
  50. % command, except for the one-size type styles. A typestyle command for which
  51. % the corresponding font exists but is not preloaded is defined to expand to a
  52. % \@getfont command.  A typestyle whose font does not exist is defined to 
  53. % expand to a \@subfont command.
  54. %
  55. % A one-size typestyle whose font is not preloaded is defined to expand to
  56. % a \@onesizefont command.
  57. %
  58. % \em is defined to be \it inside an unslanted style and \rm inside a
  59. % slanted style.  An \em command in a section title will produce a \pem
  60. % command in the table of contents.
  61. %
  62.  
  63. % USES PS (PostScript) fonts
  64. % this command is used when the user has asked for something that is
  65. % unavailable in the PostScript fonts
  66. \def\@PSignore#1{\@warning{\string#1 not supported in PS-LaTeX; ignoring it}}
  67. \def\@PSsub#1#2{#2%
  68.   \@warning{\string#1 not supported in PS-LaTeX; substituting \string#2}}
  69.  
  70. % this is used if PS-LaTeX is built without CMSY, CMMI or LASY
  71. \def\@PSnofont#1{\@warning{\string#1 requires extra fonts in PS-LaTeX}}
  72.  
  73. \def\em{\protect\pem{}}
  74. \def\pem{\ifdim \fontdimen\@ne\font >\z@ \rm \else \it \fi}
  75.  
  76. % the following magic is used to ensure that all font styles in the
  77. % normal size are loaded as soon as the job starts
  78. \def\normalsize{\@normalsize\bf\sl\tt\sf\sc\rm
  79.   \global\let\normalsize\@@normalsize}
  80. \def\@@normalsize{\ifx\@currsize\normalsize \rm \else \@normalsize\fi}
  81.  
  82. % \load{SIZE}{STYLE} : Solves anomaly of loaded-on-demand font
  83. %    used for first time in math mode.  Give this command outside math
  84. %    mode, before formula using it for first time.
  85. \def\load#1#2{\let\@tempa\@currsize \let\@currsize\relax #1#2\@tempa}
  86.  
  87. % \newfont{\CMD}{FONT} defines \CMD to be the font FONT.
  88. %    It is equivalent to \font \CMD = FONT
  89. % \symbol{NUM} == \char NUM
  90.  
  91. \def\newfont#1#2{\@ifdefinable #1{\font #1=#2\relax}}
  92. \def\symbol#1{\char #1\relax}
  93.  
  94.  
  95.  
  96. % \@getfont \STYLE \FAM \@FONTSIZE{LOADING.INFO}
  97. %   \STYLE       = style command
  98. %   \FAM         = a control sequence defined by \newfam\FAM
  99. %   \@FONTSIZE   = the @fontsize command for the current size. 
  100. %   LOADING.INFO = information needed to load the font--e.g., 
  101. %                  cmtti10 \magstep 2
  102. %   Does the following, where \FONTNAME denotes a new unique, untypeable
  103. %   font name:
  104. %    1. Executes  \font \FONTNAME = LOADING.INFO 
  105. %    2. Appends '\textfont FAM \FONTNAME \def\STYLE{\fam \FAM \FONTNAME}' 
  106. %       to the definition of \@FONTSIZE.
  107. %    3. Executes \@FONTSIZE \STYLE.
  108. %
  109. % \@nohyphens\STYLE\@FONTSIZE
  110. %   Used right after \@getfont to set \hyphenchar of the new font to -1,
  111. %   thereby prohibiting hyphenation.  It is used with \tt fonts.
  112. %   (\@nohyphens was added on 12/18/85)
  113. %
  114. % \@subfont \STYLE \REPSTYLE 
  115. %   \STYLE, \REPSTYLE = type style commands.
  116. %   Types warning message and defines uses \REPSTYLE.
  117. %
  118. % \@onesizefont \STYLE {LOADING.INFO}
  119. %   Defines \STYLE to be a typestyle that exists only for the \normalsize
  120. %   size.  It produces the font specified by LOADING.INFO
  121. %
  122. % \@addfontinfo\@FONTSIZE{DEFS}
  123. %    Expands DEFS and adds to the definition of \@FONTSIZE. Items that should 
  124. %    not be expanded should be protected with \@prtct---except no protection
  125. %    is needed for '\def\foo', only for the contents of the definition.
  126. %
  127. % \@nomath\CS : Types a warning '\CS used in math mode' if encountered
  128. %    in math mode.
  129.  
  130. % Remove \outer from definition of \newfam
  131. \def\newfam{\alloc@8\fam\chardef\sixt@@n}
  132.  
  133. \def\@setsize#1#2#3#4{\@nomath#1\let\@currsize#1\baselineskip
  134.    #2\setbox\strutbox\hbox{\vrule height.7\baselineskip
  135.       depth.3\baselineskip width\z@}\baselineskip\baselinestretch\baselineskip
  136.    \normalbaselineskip\baselineskip#3#4}
  137.  
  138. \newif\if@bold
  139.  
  140. \let\@prtct=\relax
  141.  
  142. \def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
  143.     \def\noexpand}\xdef#1{#1#2}}}
  144.  
  145. \def\@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
  146.     \font \csname \string #1\string #3\endcsname #4\relax 
  147.      \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname 
  148.      \scriptfont #2\csname \string #1\string #3\endcsname 
  149.      \scriptscriptfont #2\csname \string #1\string #3\endcsname 
  150.      \def#1{\fam #2\csname\string #1\string #3\endcsname}}}{}#3#1}
  151.  
  152. \def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname 
  153.    \string #1\string #2\endcsname \m@ne}
  154.  
  155. \def\@subfont#1#2{\@warning{No \string#1\space typeface in 
  156.         this size, using \string#2}#2}
  157.  
  158. \def\@onesizefont#1#2{\expandafter\newfam\csname fm\string#1\endcsname
  159.   \global\expandafter\font\csname ft\string#1\endcsname #2\relax
  160.   \gdef#1{\ifx \@currsize\normalsize \@ftfam#1\else
  161.   \@warning{Typeface \string#1\space available only in 
  162.   \string\normalsize, using \string\rm}\gdef #1{\ifx \@currsize\normalsize 
  163.   \textfont\@fontfam#1 \scriptfont\@fontfam#1 \scriptscriptfont
  164.   \@fontfam#1\@ftfam#1\else \rm\fi}#1\fi}#1}
  165.  
  166. \def\@ftfam#1{\fam\csname fm\string#1\endcsname\csname ft\string#1\endcsname}
  167.  
  168. \def\@nomath#1{\ifmmode \@warning{\string#1\space in math mode.}\fi}
  169. \def\@nomathbold{\ifmmode \@warning{\string\mathbold\space in math mode.}\fi}
  170.  
  171. % The following definitions save token space.  E.g., using \@height 
  172. % instead of height saves 5 tokens at the cost in time of one macro 
  173. % expansion.
  174.  
  175. \def\@height{height}
  176. \def\@depth{depth}
  177. \def\@width{width}
  178.  
  179. \def\@magscale#1{ scaled \magstep #1}
  180. \def\@halfmag{ scaled \magstephalf}
  181. \def\@ptscale#1{ scaled #100}
  182.  
  183. % FONT-CUSTOMIZING see contents of fntchoice.tex
  184. \input fntchoice
  185.  
  186. % none of the CM fonts (except cmex10) are accessible unless the
  187. % following are true 
  188. \newif\if@usecmsy \@usecmsytrue    % is the CMSY font available
  189. \newif\if@usecmmi \@usecmmitrue    % is CMMI font available
  190. % same for LaTeX symbols font
  191. \newif\if@uselasy \@uselasytrue    % is LASY font available
  192.  
  193. % There are no alternative choices for these fonts at the present
  194. \def\@msyten{cmsy10}
  195. \def\@mmiten{cmmi10}
  196. \def\@lasyten{lasy10}
  197.  
  198. % \@font\NAME{LOADING.INFO}
  199. % Defines \NAME so that when expanded for the first time it executes
  200. %     \global\font\NAME=LOADING.INFO \NAME
  201. % This cannot be used for fonts that have characters referenced by
  202. % \mathchardef, such as the Symbol, CMSY, CMMI, CMEX, and LASY fonts
  203. \def\@font#1#2{\def#1{\global\font#1=#2#1}}
  204. % \@ttfont
  205. %    same as \@font, but sets \hyphenchar to -1
  206. \def\@ttfont#1#2{\def#1{\global\font#1=#2#1\hyphenchar#1=-1}}
  207.  
  208. % font loading commands for specific (unusual) fonts
  209. \def\@loadcmsy#1#2{\if@usecmsy \font#1=#2 \skewchar#1='60 \fi}
  210. \def\@loadcmmi#1#2{\if@usecmmi \font#1=#2 \skewchar#1='177 \fi}
  211. \def\@loadsy#1#2{\font#1=#2 \skewchar#1='242 }
  212. \def\@loadtt#1#2{\font#1=#2 \hyphenchar#1=-1 }
  213.  
  214. %% FONT-CUSTOMIZING:  The following \font commands define the
  215. %% preloaded LaTeX fonts.  Font names should be changed to cause
  216. %% different fonts to be loaded in place of these particular fonts.
  217. %% \font commands can be replaced with \@font commands to reduce the
  218. %% number of preloaded fonts.
  219.  
  220. % five point
  221.  \font\fivrm  =  \@rm\@ptscale5
  222.  \font\fivit  =  \@it\@ptscale5
  223.  \@loadsy\fivsy    {\@sy\@ptscale5}
  224.  \@font\fivbf    {\@bf\@ptscale5}
  225.  \@font\fivsl    {\@sl\@ptscale5}
  226.  \@ttfont\fivtt    {\@tt\@ptscale5}
  227.  \@font\fivsf    {\@sf\@ptscale5}
  228.  \@font\fivsc    {\@sc\@ptscale5}
  229.  \font\fivms  =  \@ms\@ptscale5
  230.  \@loadcmsy\fivcmsy{cmsy5}
  231.  \@loadcmmi\fivmi{cmmi5}
  232.  \font\fivly  =  lasy5
  233.  
  234. % six point
  235.  \font\sixrm  =  \@rm\@ptscale6
  236.  \font\sixit  =  \@it\@ptscale6
  237.  \@loadsy\sixsy    {\@sy\@ptscale6}
  238.  \@font\sixbf    {\@bf\@ptscale6}
  239.  \@font\sixsl    {\@sl\@ptscale6}
  240.  \@ttfont\sixtt    {\@tt\@ptscale6}
  241.  \@font\sixsf    {\@sf\@ptscale6}
  242.  \@font\sixsc    {\@sc\@ptscale6}
  243.  \font\sixms  =  \@ms\@ptscale6
  244.  \@loadcmsy\sixcmsy{cmsy6}
  245.  \@loadcmmi\sixmi{cmmi6}
  246.  \font\sixly  =  lasy6
  247.  
  248. % seven point 
  249.  \font\sevrm  =  \@rm\@ptscale7
  250.  \font\sevit  =  \@it\@ptscale7
  251.  \@loadsy\sevsy    {\@sy\@ptscale7}
  252.  \@font\sevbf    {\@bf\@ptscale7}
  253.  \@font\sevsl    {\@sl\@ptscale7}
  254.  \@ttfont\sevtt    {\@tt\@ptscale7}
  255.  \@font\sevsf    {\@sf\@ptscale7}
  256.  \@font\sevsc    {\@sc\@ptscale7}
  257.  \font\sevms  =  \@ms\@ptscale7
  258.  \@loadcmsy\sevcmsy{cmsy7}
  259.  \@loadcmmi\sevmi{cmmi7}
  260.  \font\sevly  =  lasy7
  261.  
  262. % eight point
  263.  \font\egtrm  =  \@rm\@ptscale8
  264.  \font\egtit  =  \@it\@ptscale8
  265.  \@loadsy\egtsy    {\@sy\@ptscale8}
  266.  \@font\egtbf    {\@bf\@ptscale8}
  267.  \@font\egtsl    {\@sl\@ptscale8}
  268.  \@ttfont\egttt    {\@tt\@ptscale8}
  269.  \@font\egtsf    {\@sf\@ptscale8}
  270.  \@font\egtsc    {\@sc\@ptscale8}
  271.  \font\egtms  =  \@ms\@ptscale8
  272.  \@loadcmsy\egtcmsy{cmsy8}
  273.  \@loadcmmi\egtmi{cmmi8}
  274.  \font\egtly  =  lasy8
  275.  
  276. % nine point
  277.  \font\ninrm  =  \@rm\@ptscale9
  278.  \font\ninit  =  \@it\@ptscale9
  279.  \@loadsy\ninsy    {\@sy\@ptscale9}
  280.  \font\ninbf  =  \@bf\@ptscale9 
  281.  \@font\ninsl    {\@sl\@ptscale9}
  282.  \@loadtt\nintt    {\@tt\@ptscale9}
  283.  \@font\ninsf    {\@sf\@ptscale9}
  284.  \@font\ninsc    {\@sc\@ptscale9}
  285.  \font\ninms  =  \@ms\@ptscale9
  286.  \@loadcmsy\nincmsy{cmsy9}
  287.  \@loadcmmi\ninmi{cmmi9}
  288.  \font\ninly  =  lasy9
  289.  
  290. % ten point
  291.  \font\tenrm  =  \@rm\@magscale0
  292.  \font\tenit  =  \@it\@magscale0
  293.  \@loadsy\tensy    {\@sy\@magscale0}
  294.  \font\tenbf  =  \@bf\@magscale0
  295.  \font\tensl  =  \@sl\@magscale0
  296.  \@loadtt\tentt    {\@tt\@magscale0}
  297.  \font\tensf  =  \@sf\@magscale0
  298.  \font\tensc  =  \@sc\@magscale0
  299.  \font\tenms  =  \@ms\@magscale0
  300.  \@loadcmsy\tencmsy{\@msyten}
  301.  \@loadcmmi\tenmi{\@mmiten}
  302.  \font\tenly  =  \@lasyten
  303.  
  304. % eleven point
  305.  \font\elvrm  =  \@rm\@halfmag
  306.  \font\elvit  =  \@it\@halfmag
  307.  \@loadsy\elvsy    {\@sy\@halfmag}
  308.  \font\elvbf  =  \@bf\@halfmag
  309.  \font\elvsl  =  \@sl\@halfmag
  310.  \@loadtt\elvtt    {\@tt\@halfmag}
  311.  \font\elvsf  =  \@sf\@halfmag
  312.  \font\elvsc  =  \@sc\@halfmag
  313.  \font\elvms  =  \@ms\@halfmag
  314.  \@loadcmsy\elvcmsy{\@msyten\@halfmag}
  315.  \@loadcmmi\elvmi{\@mmiten\@halfmag}
  316.  \font\elvly  =  \@lasyten\@halfmag
  317.  
  318. % twelve point
  319.  \font\twlrm  =  \@rm\@magscale1
  320.  \font\twlit  =  \@it\@magscale1
  321.  \@loadsy\twlsy    {\@sy\@magscale1}
  322.  \font\twlbf  =  \@bf\@magscale1
  323.  \font\twlsl  =  \@sl\@magscale1
  324.  \@loadtt\twltt    {\@tt\@magscale1}
  325.  \font\twlsf  =  \@sf\@magscale1
  326.  \font\twlsc  =  \@sc\@magscale1
  327.  \font\twlms  =  \@ms\@magscale1
  328.  \@loadcmsy\twlcmsy{\@msyten\@magscale1}
  329.  \@loadcmmi\twlmi{cmmi12}
  330.  \font\twlly  =  \@lasyten\@magscale1
  331.  
  332. % fourteen point
  333.  \font\frtnrm  = \@rm\@magscale2
  334.  \font\frtnit  = \@it\@magscale2
  335.  \@loadsy\frtnsy{\@sy\@magscale2}
  336.  \font\frtnbf  = \@bf\@magscale2
  337.  \@font\frtnsl    {\@sl\@magscale2}
  338.  \@font\frtntt    {\@tt\@magscale2}
  339.  \@font\frtnsf    {\@sf\@magscale2}
  340.  \@font\frtnsc    {\@sc\@magscale2}
  341.  \font\frtnms  = \@ms\@magscale2
  342.  \@loadcmsy\frtncmsy{\@msyten\@magscale2}
  343.  \@loadcmmi\frtnmi{cmmi12\@magscale1}
  344.  \font\frtnly  = \@lasyten\@magscale2
  345.  
  346. % seventeen point
  347.  \font\svtnrm  = \@rm\@magscale3
  348.  \font\svtnit  = \@it\@magscale3
  349.  \@loadsy\svtnsy{\@sy \@magscale3}
  350.  \font\svtnbf  = \@bf\@magscale3
  351.  \@font\svtnsl    {\@sl\@magscale3}
  352.  \@font\svtntt    {\@tt\@magscale3}
  353.  \@font\svtnsf    {\@sf\@magscale3}
  354.  \@font\svtnsc    {\@sc\@magscale3}
  355.  \font\svtnms  = \@ms\@magscale3
  356.  \@loadcmsy\svtncmsy{\@msyten\@magscale3}
  357.  \@loadcmmi\svtnmi{cmmi12\@magscale2}
  358.  \font\svtnly  = \@lasyten\@magscale3
  359.  
  360. % twenty point
  361.  \font\twtyrm  = \@rm\@magscale4
  362.  \font\twtyit  = \@it\@magscale4
  363.  \@loadsy\twtysy{\@sy \@magscale4}
  364.  \@font\twtybf    {\@bf\@magscale4}
  365.  \@font\twtysl    {\@sl\@magscale4}
  366.  \@font\twtytt    {\@tt\@magscale4}
  367.  \@font\twtysf    {\@sf\@magscale4}
  368.  \@font\twtysc    {\@sc\@magscale4}
  369.  \font\twtyms  = \@ms\@magscale4
  370.  \@loadcmsy\twtycmsy{\@msyten \@magscale4}
  371.  \@loadcmmi\twtymi{\@mmiten \@magscale4}
  372.  \font\twtyly  = \@lasyten \@magscale4
  373.  
  374. % twenty-five point
  375.  \font\twfvrm  = \@rm\@magscale5
  376.  \font\twfvit  = \@it\@magscale5
  377.  \@loadsy\twfvsy{\@sy \@magscale5}
  378.  \@font\twfvbf    {\@bf\@magscale5}
  379.  \@font\twfvsl    {\@sl\@magscale5}
  380.  \@font\twfvtt    {\@tt\@magscale5}
  381.  \@font\twfvsf    {\@sf\@magscale5}
  382.  \@font\twfvsc    {\@sc\@magscale5}
  383.  \font\twfvms  = \@ms\@magscale5
  384.  \@loadcmsy\twfvcmsy{\@msyten \@magscale5}
  385.  \@loadcmmi\twfvmi{\@mmiten \@magscale5}
  386.  \font\twfvly  = \@lasyten\@magscale5
  387.  
  388. % Math extension
  389.  \font\tenex   = cmex10
  390.  
  391. \if@uselasy
  392.  % line & circle fonts
  393.  \font\tenln    = line10
  394.  \font\tenlnw   = linew10
  395.  \font\tencirc  = circle10
  396.  \font\tencircw = circlew10
  397.  
  398.  % Change made 6 May 86: `\@warning' replaced by `\immediate\write 15' 
  399.  % since it's not defined when lfonts.tex is read by lplain.tex.
  400.  %
  401.  \ifnum\fontdimen8\tenln=\fontdimen8\tencirc \else 
  402.    \immediate\write 15{Incompatible thin line and circle fonts}\fi
  403.  \ifnum\fontdimen8\tenlnw=\fontdimen8\tencircw \else 
  404.    \immediate\write 15{Incompatible thick line and circle fonts}\fi
  405. \fi
  406.  
  407. % protected font names
  408. \def\rm{\protect\prm}
  409. \def\it{\protect\pit}
  410. \def\bf{\protect\pbf}
  411. \def\sl{\protect\psl}
  412. \def\sf{\protect\psf}
  413. \def\sc{\protect\psc}
  414. \def\tt{\protect\ptt}
  415.  
  416. % families
  417.  
  418. \def\hexnumber@#1{\ifnum#1<10 \number#1\else
  419.  \ifnum#1=10 A\else\ifnum#1=11 B\else\ifnum#1=12 C\else
  420.  \ifnum#1=13 D\else\ifnum#1=14 E\else
  421.  \ifnum#1=15 F\fi\fi\fi\fi\fi\fi\fi}
  422.  
  423. % since math italic and text italic are the same, \itfam is not required
  424. \let\itfam\@ne
  425. \newfam\slfam      % \sl is family 4
  426. \newfam\bffam      % \bf is family 5
  427. \newfam\ttfam      % \tt is family 6
  428. \newfam\sffam      % \sf is family 7
  429. \newfam\scfam      % \sc is family 8
  430. \newfam\msfam      % \ms is family 9 (slanted Symbol)
  431. \edef\ms@{\hexnumber@\msfam}
  432.  
  433. \if@uselasy
  434.  \newfam\lyfam
  435.  \edef\lasy@{\hexnumber@\lyfam}
  436. \fi
  437.  
  438. \if@usecmsy
  439.  \newfam\cmsyfam
  440.  \def\cal{\fam\cmsyfam}
  441.  \edef\cmsy@{\hexnumber@\cmsyfam}
  442. \else
  443.  \def\cal{\@PSnofont\cal}
  444. \fi
  445.  
  446. \if@usecmmi
  447.  \newfam\cmmifam
  448.  \edef\cmmi@{\hexnumber@\cmmifam}
  449. \fi
  450.  
  451. \def\mit{\fam\msfam} % slanted uppercase Greek
  452.  
  453.  
  454. \def\@setstrut{\setbox\strutbox=\hbox{\vrule \@height .7\baselineskip
  455.     \@depth .3\baselineskip \@width\z@}}
  456.  
  457. % no bold math available in PostScript
  458. \def\boldmath{\@PSignore\boldmath}
  459. \def\unboldmath{\@PSignore\unboldmath}
  460.  
  461. %% FONT-CUSTOMIZING: The commands \vpt, \vipt, ... , \xxvpt perform all
  462. %% the declarations needed to change the type size to 5pt, 6pt, ... ,
  463. %% 25pt.  To see how this works, consider the definition of \ixpt,
  464. %% which determines the fonts used in a 9pt type size.  The command
  465. %%    \def\prm{\fam\rmfam\ninrm}
  466. %% means that the \rm command causes the preloaded \ninrm font to
  467. %% be used--this font was defined earlier with a \font\ninrm...
  468. %% command.  The command
  469. %%     \@setfam\rmfam\ninrm\sixrm\fivrm
  470. %% tell TeX to use the \ninrm, \sixrm and \fivrm fonts for
  471. %% text, script and scriptscript math size for the 9pt size.  
  472. %% 
  473. %% The command 
  474. %%     \def\pbf{\@getfam\pbf\bffam\@ixpt\ninbf\sixbf\fivbf}
  475. %% declares \bf to use either pre-loaded or loaded-on-demand
  476. %% fonts--namely, the fonts \ninbf, \sixbf and \fivbf.  Presumably,
  477. %% they were earlier declared using the \font or \@font commands.
  478. %%
  479. %% If you decided that preloading the fonts for a bold, 9pt size was
  480. %% unnecessary, then you would alter the declaration of \ninbf to use
  481. %% \@font rather than \font.
  482. %% Note that you can only do this for the \bf, \sl, \tt, \sf and \sc
  483. %% families; the other fonts are used in math mode and must be
  484. %% preloaded. 
  485. %%
  486. %% The command
  487. %%     \def\ptt{\@subfont\tt\rm}
  488. %% declares that the \tt font is unavailable in the 7pt size, so
  489. %% the \rm font is used instead.  (The substituted type style should
  490. %% correspond to a preloaded size.)
  491.  
  492. % \@getfam\STYLE\FAM\SIZE\TFONT\SFONT\SSFONT\CMND
  493. %  Defines \def\STYLE{\fam\FAM\TFONT\CMND}
  494. %  Executes
  495. %    \fam\FAM
  496. %    \SSFONT\scriptscriptfont\FAM\SSFONT
  497. %    \SFONT\scriptfont\FAM\SFONT
  498. %    \TFONT\textfont\FAM\TFONT\CMND
  499. % (the extra invocations of \SSFONT etc cause preloaded fonts to be
  500. % loaded.)
  501. % Tests to see if the unique name madee from \STYLE and \SIZE is
  502. % defined.  If not, defines it and adds the definition
  503. %     \def\STYLE{\fam\FAM\TFONT\CMND} \textfont\FAM\TFONT
  504. %        \scriptfont\FAM\SFONT \scriptscriptfont\FAM\SSFONT
  505. % to the definition of \SIZE
  506. \def\@getfam#1#2#3#4#5#6#7{%
  507.   \def#1{\fam#2#4#7}%
  508.   \fam#2\relax #6\scriptscriptfont#2#6%
  509.   #5\scriptfont#2#5\relax #4\textfont#2#4#7%
  510.   \@ifundefined{\string#1\string#3}{%
  511.     \global\expandafter\def\csname\string#1\string#3\endcsname{}%
  512.     \@addfontinfo#3{\def#1{\fam#2#4\@prtct#7}\textfont#2\noexpand#4%
  513.       \scriptfont#2\noexpand#5\scriptscriptfont#2\noexpand#6}}{}}
  514.  
  515. % \setfam\FAM\TFONT\SFONT\SSFONT
  516. %    set \TFONT, \SFONT and \SSFONT as the text, script and
  517. % scriptscript fonts in family \FAM.
  518. \def\@setfam#1#2#3#4{#2\textfont#1#2\relax #3\scriptfont#1#3\relax
  519.   #4\scriptscriptfont#1#4}
  520.  
  521. % These are constant throughout the life of LaTeX ... must not
  522. % reassign to any of them anywhere.
  523. \textfont\thr@@\tenex
  524. \scriptfont\thr@@\tenex
  525. \scriptscriptfont\thr@@\tenex
  526.  
  527. \def\vpt{%
  528. \def\prm{\fam\z@\fivrm\@dononsf}\@setfam\z@\fivrm\fivrm\fivrm
  529. \def\pit{\fam\@ne\fivit\@dononsf}\@setfam\@ne\fivit\fivit\fivit
  530. \@setfam\tw@\fivsy\fivsy\fivsy
  531. \def\pbf{\@getfam\pbf\bffam\@vpt\fivbf\fivbf\fivbf\@dononsf}%
  532. \def\psl{\@getfam\psl\slfam\@vpt\fivsl\fivsl\fivsl\@dononsf}%
  533. \def\ptt{\@getfam\ptt\ttfam\@vpt\fivtt\fivtt\fivtt\@dononsf}%
  534. \def\psf{\@getfam\psf\sffam\@vpt\fivsf\fivsf\fivsf\@dosfchars}%
  535. \def\psc{\@getfam\psc\scfam\@vpt\fivsc\fivsc\fivsc\@dononsf}%
  536. \@setfam\msfam\fivms\fivms\fivms
  537. \@setfam\cmsyfam\fivcmsy\fivcmsy\fivcmsy
  538. \@setfam\cmmifam\fivmi\fivmi\fivmi
  539. \@setfam\lyfam\fivly\fivly\fivly
  540. \@setstrut\rm}
  541.  
  542. \def\@vpt{}
  543.  
  544. \def\vipt{%
  545. \def\prm{\fam\z@\sixrm\@dononsf}\@setfam\z@\sixrm\fivrm\fivrm
  546. \def\pit{\fam\@ne\sixit\@dononsf}\@setfam\@ne\sixit\fivit\fivit
  547. \@setfam\tw@\sixsy\fivsy\fivsy
  548. \def\pbf{\@getfam\pbf\bffam\@vipt\sixbf\fivbf\fivbf\@dononsf}%
  549. \def\psl{\@getfam\psl\slfam\@vipt\sixsl\sixsl\sixsl\@dononsf}%
  550. \def\ptt{\@getfam\ptt\ttfam\@vipt\sixtt\sixtt\sixtt\@dononsf}%
  551. \def\psf{\@getfam\psf\sffam\@vipt\sixsf\sixsf\sixsf\@dosfchars}%
  552. \def\psc{\@getfam\psc\scfam\@vipt\sixsc\sixsc\sixsc\@dononsf}%
  553. \@setfam\msfam\sixms\fivms\fivms
  554. \@setfam\cmsyfam\sixcmsy\fivcmsy\fivcmsy
  555. \@setfam\cmmifam\sixmi\fivmi\fivmi
  556. \@setfam\lyfam\sixly\fivly\fivly
  557. \@setstrut\rm}
  558.  
  559. \def\@vipt{}
  560.  
  561. \def\viipt{%
  562. \def\prm{\fam\z@\sevrm\@dononsf}\@setfam\z@\sevrm\fivrm\fivrm
  563. \def\pit{\fam\@ne\sevit\@dononsf}\@setfam\@ne\sevit\fivit\fivit
  564. \@setfam\tw@\sevsy\fivsy\fivsy
  565. \def\pbf{\@getfam\pbf\bffam\@viipt\sevbf\fivbf\fivbf\@dononsf}%
  566. \def\psl{\@getfam\psl\slfam\@viipt\sevsl\sevsl\sevsl\@dononsf}%
  567. \def\ptt{\@getfam\ptt\ttfam\@viipt\sevtt\sevtt\sevtt\@dononsf}%
  568. \def\psf{\@getfam\psf\sffam\@viipt\sevsf\sevsf\sevsf\@dosfchars}%
  569. \def\psc{\@getfam\psc\scfam\@viipt\sevsc\sevsc\sevsc\@dononsf}%
  570. \@setfam\msfam\sevms\fivms\fivms
  571. \@setfam\cmsyfam\sevcmsy\fivcmsy\fivcmsy
  572. \@setfam\cmmifam\sevmi\fivmi\fivmi
  573. \@setfam\lyfam\sevly\fivly\fivly
  574. \@setstrut\rm}
  575.  
  576. \def\@viipt{}
  577.  
  578. \def\viiipt{%
  579. \def\prm{\fam\z@\egtrm\@dononsf}\@setfam\z@\egtrm\sixrm\fivrm
  580. \def\pit{\fam\@ne\egtit\@dononsf}\@setfam\@ne\egtit\sixit\fivit
  581. \@setfam\tw@\egtsy\sixsy\fivsy
  582. \def\pbf{\@getfam\pbf\bffam\@viiipt\egtbf\sixbf\fivbf\@dononsf}%
  583. \def\psl{\@getfam\psl\slfam\@viiipt\egtsl\egtsl\egtsl\@dononsf}%
  584. \def\ptt{\@getfam\ptt\ttfam\@viiipt\egttt\egttt\egttt\@dononsf}%
  585. \def\psf{\@getfam\psf\sffam\@viiipt\egtsf\egtsf\egtsf\@dosfchars}%
  586. \def\psc{\@getfam\psc\scfam\@viiipt\egtsc\egtsc\egtsc\@dononsf}%
  587. \@setfam\msfam\egtms\sixms\fivms
  588. \@setfam\cmsyfam\egtcmsy\sixcmsy\fivcmsy
  589. \@setfam\cmmifam\egtmi\sixmi\fivmi
  590. \@setfam\lyfam\egtly\sixly\fivly
  591. \@setstrut\rm}
  592.  
  593. \def\@viiipt{}
  594.  
  595. \def\ixpt{%
  596. \def\prm{\fam\z@\ninrm\@dononsf}\@setfam\z@\ninrm\sixrm\fivrm
  597. \def\pit{\fam\@ne\ninit\@dononsf}\@setfam\@ne\ninit\sixit\fivit
  598. \@setfam\tw@\ninsy\sixsy\fivsy
  599. \def\pbf{\@getfam\pbf\bffam\@ixpt\ninbf\sixbf\fivbf\@dononsf}%
  600. \def\psl{\@getfam\psl\slfam\@ixpt\ninsl\ninsl\ninsl\@dononsf}%
  601. \def\ptt{\@getfam\ptt\ttfam\@ixpt\nintt\nintt\nintt\@dononsf}%
  602. \def\psf{\@getfam\psf\sffam\@ixpt\ninsf\ninsf\ninsf\@dosfchars}%
  603. \def\psc{\@getfam\psc\scfam\@ixpt\ninsc\ninsc\ninsc\@dononsf}%
  604. \@setfam\msfam\ninms\sixms\fivms
  605. \@setfam\cmsyfam\nincmsy\sixcmsy\fivcmsy
  606. \@setfam\cmmifam\ninmi\sixmi\fivmi
  607. \@setfam\lyfam\ninly\sixly\fivly
  608. \@setstrut\rm}
  609.  
  610. \def\@ixpt{}
  611.  
  612. \def\xpt{%
  613. \def\prm{\fam\z@\tenrm\@dononsf}\@setfam\z@\tenrm\sevrm\fivrm
  614. \def\pit{\fam\@ne\tenit\@dononsf}\@setfam\@ne\tenit\sevit\fivit
  615. \@setfam\tw@\tensy\sevsy\fivsy
  616. \def\pbf{\@getfam\pbf\bffam\@xpt\tenbf\sevbf\fivbf\@dononsf}%
  617. \def\psl{\@getfam\psl\slfam\@xpt\tensl\tensl\tensl\@dononsf}%
  618. \def\ptt{\@getfam\ptt\ttfam\@xpt\tentt\tentt\tentt\@dononsf}%
  619. \def\psf{\@getfam\psf\sffam\@xpt\tensf\tensf\tensf\@dosfchars}%
  620. \def\psc{\@getfam\psc\scfam\@xpt\tensc\tensc\tensc\@dononsf}%
  621. \@setfam\msfam\tenms\sevms\fivms
  622. \@setfam\cmsyfam\tencmsy\sevcmsy\fivcmsy
  623. \@setfam\cmmifam\tenmi\sevmi\fivmi
  624. \@setfam\lyfam\tenly\sevly\fivly
  625. \@setstrut\rm}
  626.  
  627. \def\@xpt{}
  628.  
  629. \def\xipt{%
  630. \def\prm{\fam\z@\elvrm\@dononsf}\@setfam\z@\elvrm\egtrm\sixrm
  631. \def\pit{\fam\@ne\elvit\@dononsf}\@setfam\@ne\elvit\egtit\sixit
  632. \@setfam\tw@\elvsy\egtsy\sixsy
  633. \def\pbf{\@getfam\pbf\bffam\@xipt\elvbf\egtbf\sixbf\@dononsf}%
  634. \def\psl{\@getfam\psl\slfam\@xipt\elvsl\elvsl\elvsl\@dononsf}%
  635. \def\ptt{\@getfam\ptt\ttfam\@xipt\elvtt\elvtt\elvtt\@dononsf}%
  636. \def\psf{\@getfam\psf\sffam\@xipt\elvsf\elvsf\elvsf\@dosfchars}%
  637. \def\psc{\@getfam\psc\scfam\@xipt\elvsc\elvsc\elvsc\@dononsf}%
  638. \@setfam\msfam\elvms\egtms\sixms
  639. \@setfam\cmsyfam\elvcmsy\egtcmsy\sixcmsy
  640. \@setfam\cmmifam\elvmi\egtmi\sixmi
  641. \@setfam\lyfam\elvly\egtly\sixly
  642. \@setstrut\rm}
  643.  
  644. \def\@xipt{}
  645.  
  646. \def\xiipt{%
  647. \def\prm{\fam\z@\twlrm\@dononsf}\@setfam\z@\twlrm\egtrm\sixrm
  648. \def\pit{\fam\@ne\twlit\@dononsf}\@setfam\@ne\twlit\egtit\sixit
  649. \@setfam\tw@\twlsy\egtsy\sixsy
  650. \def\pbf{\@getfam\pbf\bffam\@xiipt\twlbf\egtbf\sixbf\@dononsf}%
  651. \def\psl{\@getfam\psl\slfam\@xiipt\twlsl\twlsl\twlsl\@dononsf}%
  652. \def\ptt{\@getfam\ptt\ttfam\@xiipt\twltt\twltt\twltt\@dononsf}%
  653. \def\psf{\@getfam\psf\sffam\@xiipt\twlsf\twlsf\twlsf\@dosfchars}%
  654. \def\psc{\@getfam\psc\scfam\@xiipt\twlsc\twlsc\twlsc\@dononsf}%
  655. \@setfam\msfam\twlms\egtms\sixms
  656. \@setfam\cmsyfam\twlcmsy\egtcmsy\sixcmsy
  657. \@setfam\cmmifam\twlmi\egtmi\sixmi
  658. \@setfam\lyfam\twlly\egtly\sixly
  659. \@setstrut\rm}
  660.  
  661. \def\@xiipt{}
  662.  
  663. \def\xivpt{%
  664. \def\prm{\fam\z@\frtnrm\@dononsf}\@setfam\z@\frtnrm\tenrm\sevrm
  665. \def\pit{\fam\@ne\frtnit\@dononsf}\@setfam\@ne\frtnit\tenit\sevit
  666. \@setfam\tw@\frtnsy\tensy\sevsy
  667. \def\pbf{\@getfam\pbf\bffam\@xivpt\frtnbf\tenbf\sevbf\@dononsf}%
  668. \def\psl{\@getfam\psl\slfam\@xivpt\frtnsl\frtnsl\frtnsl\@dononsf}%
  669. \def\ptt{\@getfam\ptt\ttfam\@xivpt\frtntt\frtntt\frtntt\@dononsf}%
  670. \def\psf{\@getfam\psf\sffam\@xivpt\frtnsf\frtnsf\frtnsf\@dosfchars}%
  671. \def\psc{\@getfam\psc\scfam\@xivpt\frtnsc\frtnsc\frtnsc\@dononsf}%
  672. \@setfam\msfam\frtnms\tenms\sevms
  673. \@setfam\cmsyfam\frtncmsy\tencmsy\sevcmsy
  674. \@setfam\cmmifam\frtnmi\tenmi\sevmi
  675. \@setfam\lyfam\frtnly\tenly\sevly
  676. \@setstrut\rm}
  677.  
  678. \def\@xivpt{}
  679.  
  680. \def\xviipt{%
  681. \def\prm{\fam\z@\svtnrm\@dononsf}\@setfam\z@\svtnrm\twlrm\tenrm
  682. \def\pit{\fam\@ne\svtnit\@dononsf}\@setfam\@ne\svtnit\twlit\tenit
  683. \@setfam\tw@\svtnsy\twlsy\tensy
  684. \def\pbf{\@getfam\pbf\bffam\@xviipt\svtnbf\twlbf\tenbf\@dononsf}%
  685. \def\psl{\@getfam\psl\slfam\@xviipt\svtnsl\svtnsl\svtnsl\@dononsf}%
  686. \def\ptt{\@getfam\ptt\ttfam\@xviipt\svtntt\svtntt\svtntt\@dononsf}%
  687. \def\psf{\@getfam\psf\sffam\@xviipt\svtnsf\svtnsf\svtnsf\@dosfchars}%
  688. \def\psc{\@getfam\psc\scfam\@xviipt\svtnsc\svtnsc\svtnsc\@dononsf}%
  689. \@setfam\msfam\svtnms\twlms\tenms
  690. \@setfam\cmsyfam\svtncmsy\twlcmsy\tencmsy
  691. \@setfam\cmmifam\svtnmi\twlmi\tenmi
  692. \@setfam\lyfam\svtnly\twlly\tenly
  693. \@setstrut\rm}
  694.  
  695. \def\@xviipt{}
  696.  
  697. \def\xxpt{%
  698. \def\prm{\fam\z@\twtyrm\@dononsf}\@setfam\z@\twtyrm\frtnrm\twlrm
  699. \def\pit{\fam\@ne\twtyit\@dononsf}\@setfam\@ne\twtyit\frtnit\twlit
  700. \@setfam\tw@\twtysy\frtnsy\twlsy
  701. \def\pbf{\@getfam\pbf\bffam\@xxpt\twtybf\frtnbf\twlbf\@dononsf}%
  702. \def\psl{\@getfam\psl\slfam\@xxpt\twtysl\twtysl\twtysl\@dononsf}%
  703. \def\ptt{\@getfam\ptt\ttfam\@xxpt\twtytt\twtytt\twtytt\@dononsf}%
  704. \def\psf{\@getfam\psf\sffam\@xxpt\twtysf\twtysf\twtysf\@dosfchars}%
  705. \def\psc{\@getfam\psc\scfam\@xxpt\twtysc\twtysc\twtysc\@dononsf}%
  706. \@setfam\msfam\twtyms\frtnms\twlms
  707. \@setfam\cmsyfam\twtycmsy\frtncmsy\twlcmsy
  708. \@setfam\cmmifam\twtymi\frtnmi\twlmi
  709. \@setfam\lyfam\twtyly\frtnly\twlly
  710. \@setstrut\rm}
  711.  
  712. \def\@xxpt{}
  713.  
  714. \def\xxvpt{%
  715. \def\prm{\fam\z@\twfvrm\@dononsf}\@setfam\z@\twfvrm\svtnrm\svtnrm
  716. \def\pit{\fam\@ne\twfvit\@dononsf}\@setfam\@ne\twfvit\svtnit\svtnit
  717. \@setfam\tw@\twfvsy\svtnsy\svtnsy
  718. \def\pbf{\@getfam\pbf\bffam\@xxvpt\twfvbf\svtnbf\svtnbf\@dononsf}%
  719. \def\psl{\@getfam\psl\slfam\@xxvpt\twfvsl\twfvsl\twfvsl\@dononsf}%
  720. \def\ptt{\@getfam\ptt\ttfam\@xxvpt\twfvtt\twfvtt\twfvtt\@dononsf}%
  721. \def\psf{\@getfam\psf\sffam\@xxvpt\twfvsf\twfvsf\twfvsf\@dosfchars}%
  722. \def\psc{\@getfam\psc\scfam\@xxvpt\twfvsc\twfvsc\twfvsc\@dononsf}%
  723. \@setfam\msfam\twfvms\svtnms\svtnms
  724. \@setfam\cmsyfam\twfvcmsy\svtncmsy\svtncmsy
  725. \@setfam\cmmifam\twfvmi\svtnmi\svtnmi
  726. \@setfam\lyfam\twfvly\svtnly\svtnly
  727. \@setstrut\rm}
  728.  
  729. \def\@xxvpt{}
  730.  
  731. % SPECIAL LaTeX character definitions
  732.  
  733. % Definitions of math operators added by LaTeX
  734. \if@uselasy
  735.  \mathchardef\mho"0\lasy@30
  736.  \mathchardef\Join"3\lasy@31
  737.  \mathchardef\Box"0\lasy@32
  738.  \mathchardef\Diamond"0\lasy@33
  739.  \mathchardef\leadsto"3\lasy@3B
  740.  \mathchardef\sqsubset"3\lasy@3C
  741.  \mathchardef\sqsupset"3\lasy@3D
  742. \else
  743.  \def\mho{\@PSnofont\mho}
  744.  \def\Join{\@PSnofont\Join}
  745.  \def\Box{\@PSnofont\Box}
  746.  \def\Diamond{\@PSnofont\Diamond}
  747.  \def\leadsto{\@PSnofont\leadsto}
  748.  \def\sqsubset{\@PSnofont\sqsubset}
  749.  \def\sqsupset{\@PSnofont\sqsupset}
  750. \fi
  751.  
  752. \def\lhd{\mathbin{< \hbox to -.43em{}\hbox{\vrule 
  753.       \@width .065em \@height .55em \@depth .05em}\hbox to .2em{}}}
  754. \def\rhd{\mathbin{\hbox to .3em{}\hbox{\vrule \@width .065em \@height 
  755.        .55em \@depth .05em}\hbox to -.43em{}>}}
  756. \def\unlhd{\mathbin{\leq \hbox to -.43em{}\hbox
  757.         {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to .2em{}}}
  758. \def\unrhd{\mathbin{ \hbox to .3em{}\hbox
  759.  {\vrule \@width .065em \@height .63em \@depth -.08em}\hbox to -.43em{}\geq}}
  760.  
  761. % The dollar sign is in the same place in all the PostScript fonts
  762.  
  763. \def\${{\char`\$}}
  764.  
  765. % Definition of pound sterling sign.
  766.  
  767. \def\pounds{{\it \char"A3}}
  768.  
  769. % Definition of \copyright changed so it works in other type styles,
  770. % and so it is robust
  771. \def\copyright{\protect\pcopyright}
  772. \def\registered{\protect\pregistered}
  773. \def\trademark{\protect\ptrademark}
  774. % see pslplain.tex for definitions of \pcopyright, \pregistered, \ptrademark
  775.  
  776. % provide the correct f when a font change takes place in mathmode
  777. \def\@fixf{\ifmmode\mathcode`\f="7166\relax\fi}
  778.